home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / proc.numbers < prev    next >
Text File  |  2007-03-01  |  1KB  |  56 lines
  1. 0010 // ─┼╠┼╘┼ "PRC.NUMBERS"
  2. 0020 // ╠╔╙╘   "PRC.NUMBERS"
  3. 0030 //
  4. 0040 // FOR ├┬═ ├╧═┴╠-80 VS 2.01
  5. 0050 //
  6. 0060 ╨╥╧├ INTEGER(NUMBER) ├╠╧╙┼─
  7. 0070   ╔═╨╧╥╘ HEX$
  8. 0080   ╔╞ NUMBER<-32768 ╧╥ NUMBER>32767 ╧╥ ╔╬╘(NUMBER)<>NUMBER ╘╚┼╬
  9. 0090     ╨╥╔╬╘ "ERROR IN PARAMETER"
  10. 0100     ╙╘╧╨ 
  11. 0110   ┼╬─╔╞ 
  12. 0120   ╔╞ NUMBER<0 ╘╚┼╬
  13. 0130     NUMBER:=-NUMBER
  14. 0140     NUMBER:=(NUMBER ┬╔╘╪╧╥ $FFFF)+1
  15. 0150   ┼╬─╔╞ 
  16. 0160   HI:=NUMBER ─╔╓ 256
  17. 0170   LO:=NUMBER ═╧─ 256
  18. 0180   ╨╥╔╬╘ HEX$(HI)+" "+HEX$(LO)
  19. 0190 ┼╬─╨╥╧├ INTEGER
  20. 0200 //
  21. 0210 ╨╥╧├ REAL(NUMBER) ├╠╧╙┼─
  22. 0220   ╔═╨╧╥╘ HEX$
  23. 0230   ─╔═ M(0:4)
  24. 0240   //         M(0)=EX, M(1)=M1, ESO.
  25. 0250   NEG:=╞┴╠╙┼
  26. 0260   ╔╞ NUMBER<0 ╘╚┼╬
  27. 0270     NEG:=╘╥╒┼
  28. 0280     NUMBER:=-NUMBER
  29. 0290   ┼╬─╔╞ 
  30. 0300   ╔╞ NUMBER=0 ╘╚┼╬
  31. 0310     EXPON:=0
  32. 0320   ┼╠╙┼ 
  33. 0330     EXPON:=╔╬╘(╠╧╟(NUMBER)/╠╧╟(2))+1
  34. 0340   ┼╬─╔╞ 
  35. 0350   M(0):=EXPON+128
  36. 0360   MANTDEC:=NUMBER/(2^EXPON)
  37. 0370   ╞╧╥ T#:=1 ╘╧ 4 ─╧
  38. 0380     PROD:=MANTDEC*256
  39. 0390     M(T#):=╔╬╘(PROD)
  40. 0400     MANTDEC:=PROD-M(T#)
  41. 0410   ┼╬─╞╧╥ T#
  42. 0420   ╔╞ NEG ╘╚┼╬ M(1):=M(1)-128
  43. 0430   ╞╧╥ T#:=0 ╘╧ 4 ─╧
  44. 0440     ╨╥╔╬╘ HEX$(M(T#));
  45. 0450   ┼╬─╞╧╥ T#
  46. 0460   ╨╥╔╬╘ 
  47. 0470 ┼╬─╨╥╧├ REAL
  48. 0480 //
  49. 0490 ╞╒╬├ HEX$(N) ├╠╧╙┼─
  50. 0500   ─╔═ H$ ╧╞ 16
  51. 0510   H$:="0123456789ABCDEF"
  52. 0520   NIBH:=N ─╔╓ 16
  53. 0530   NIBL:=N ═╧─ 16
  54. 0540   ╥┼╘╒╥╬ H$(NIBH+1)+H$(NIBL+1)
  55. 0550 ┼╬─╞╒╬├ HEX$
  56.